RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE®*1D**MAKNDX 


MM MM AAAAAA KK KK NN NN DDDODDDD XX XX 

MM MM AAAAAA KK KK NN NN DDDDDDDD XX XX 

MMMM MMMM AA AA KK KK NN NN DD DD XX XX 

MMMM MMMM AA AA KK KK NN NN DD DD Xx XX 

MM MM OMM AA AA KK KK NNNN NN DD DD XX XX 

MM MM MM AA AA KK NNNN NN DD DD XX XX 

aa! MM AA AA KKKKKK NN NN NN DD DD XX 

MM MM AA AA KKKKKK NN NN NN DD DD XX 

MM MM AAAAAAAAAA NN NNNN DD DD XX XX 

MM MM AAAAAAAAAA KK KK NN NNNN DD DD XX XX 

MM MM AA AA KK KK NN NN DD DD Xx XX coos 
MM MM AA AA KK KK NN NN DD DD Xx XX eee 
MM MM AA AA KK KK NN NN DDDDDDDD XX XX eeee 
MM MM AA AA KK KK NN NN DODDDDDDD XX XX cece 
LL Lilli] SSSSSSSS 

LL 11111 SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL Ij SS 

LL I] SS 

LL I] SS 

LL Il SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL IIIT] SSSSSSSS 
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00) ZTITLE ‘Processes s INDEX, voen a0 and .SUBI directives.’ 
§ MODULE makndx ( IDENT = 
DENT Soc + MODE (EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVESJ 
= 
BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


'® THIS i kerio i. FURNISHED UNDER A LICENSE AND MAY BE yer AND gor tee 
'* ONLY IN ACCORDANCE WITH THE {ERAS OF SUCH LICENSE AND WITH THE 
t® INCLUSION OF THe ABOVE pith NOTICE. THIS SOFTWARE OR ANY OTHER 
iw COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Hl Se eokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


't DIGITAL ASSUMES NO RESPONS 
te SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

: ABSTRACT: Processes the .INDEX, .ENTRY, and .SUBINDEX commands. 
ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: June, 1978 
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Revision History RUNOFF .SRC.JMAKNDX.BLI; 


: : O¢¢ ! pserre "Revision History’ 

: ad 43 | MODIFIED BY: 

: 46 G0¢s .% 018 REMO0018 Ray Wershall ia tS ry rth 

s 67 peg 1! Modified the external definition of ATABLE to use the new 
: rt Boe } macro ATABLE_DEFINITION defined. in ATCODE.REQ. 

: 50 inks 1 i 017 KAD00017 Keith Dawson 23-March-1983 

: 51 B2e0 : Changed GCA_FLIP bit to (.gca_op_dev EQL op_dev_flip). 

; 35 O26 1: 016 KFA00016 Alden proctor she toe3 

3 4 053 1! SCA must now be initialized by hand all the time 

: 2? bee ! since DSR is now capable of doing SAVESRESTORE. 

: 57 0096 1! 015 KFA00015 Alden 10-March-1983 

: 28 ied } Fixed bug with x MCHSSTR should not have been called. 

: 60 0059 1: 014 REROOO14 Ron Randall 07-March-1983 

; 68) se 1 i Global edit of all modules. Updated module names, idents, 
; o¢ 061 1! copyright dates. Changed require files to BLISS library. 
; ¢ b266 1: 

; 64 006 1 i- 

: 65 0064 1 
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MAKNDX Processes .INDEX, .ENT, and .SUBI directives. 1beSe -1984 00:56:25 AX-11 Bliss-32 V4.0-74 
v04-000 Module Level Declarations 12-88-138e 90:39:82 RUNOFF .SRCJMAKNDX.BLI; 
; 65 1 XZSBTTL ‘Module Level Declarations’ 3 
: 8 ae 
3 % 68 1 ! TABLE OF CONTENTS: 3 
3 34 1! 3 
; ue 070 1 ! INCLUDE FILES: 3 
ig: 0071 1! 3 
: 74 por¢ 1 LIBRARY ‘NXPORT:XPORT'; ! XPORT Library : 
3 2 46 : REQUIRE "REQ:RNODEF'; ! RUNOFF variant definitions : 
caer u 0 8 1 ZIF DSRPLUS XTHEN 3 
. u0 $6 1 ed *REQ:DPLLIB'; ! DSRPLUS BLISS Library 3 
; 0 1 ZELSE 3 
: 80 0208 1 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 3 
; 68) 0209 1 FI F 
3 B¢ 0210 1 : 
e 0211 1! 3 
; 0 \¢ 1 ! EXTERNAL REFERENCES: $ 
; oe 851 7 ¢ 3 
i. & 0214 1 EXTERNAL LITERAL 3 
5 Of 0215 1 RINTES : UNSIGNED (8); 3 
; 0216 1 3 
; | 6 0217 1 EXTERNAL j 
; Ww 0218 1 atable : atable_definition, ! Action table. Used to identify what type of F 
; v1 0219 1 ! action is to be taken on encountering any : 
: .-% oss¢ 1 ! given character. $ 
3; 9 0221 1 FLGT : FLAG_TABLE, ; 
; | (94 bse¢ 1 3 
: 95 U 022 1 ZIF DSRPLUS XTHEN é 
3; «6% U osse 1 FSO1 : FIXED_STRING, 3 
; 0225 1 XFI 3 
; «698 0226 1 3 
; VF 0227 1 GCA : GCA_DEFINITION, 3 
: 100 0228 1 IRA : FIXED_STRING 
: 101 0209 1 MRA : REF FIXED STRING, 
s 102 0230 1 SCA : SCA_DEFINITION, 
; 103 0231 1 TSF : TSF_DEFINITION, 
: 104 OS36 1 XMRA : FIRED STRING, 
; 105 023 1 XTSF : VECTOR; 
: 106 Osee 1 
; 107 0235 1 EXTERNAL ROUTINE 
: 108 0236 1 ENDWRD, 
3; 109 0237 1 Vs 
: 110 3 1 TLIN, 
3 111 1 RSKIPS, 
; \1¢ 40 1 ANT 
> 11 0241 1 SETCAS, 
: 114 8 $5 1 UBXR; 
s 195 43 1 
3; «116 U 0244 1 ZIF DSRPLUS ZTHEN 
: 117 U 45 1 EXTERNAL ROUTINE 
; 118 U rf 1 ENDCMT, 
3 «119 U 0247 1 PUTATT, 
; 120 U 0248 1 CHSSTR, 
s 21 U 49 1 WRATTR, 
: % § u 0250 1 XPLUS; 
es 0251 1 &FI 


M11 
Processes .INDEX, .ENT, and .SUBI directives. 16-Sep-1984 00:56:25 AX-11 Bliss-32 V4.0-74 
Module Level Declarations : a 387 90: 38:6? : i Page .4 


1 RUNOFF .SRCJMAKNDX.BLI; (3) 
i OWN STORAGE: 


PP_SCA : SH_R_SCA_BLOCK; 'Used in PUSH_SCA, POP_SCA macros (defined in SCA.REQ). 
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le Level Declarations : 122808-138e 99:39:82 RUNOFF’ Re MAENDX- OL f, _— (43 


GLOBAL ROUTINE MAKNDX (HANDLER_CODE, DO_INDEXING) : NOVALUE = 


i FUNCTIONAL DESCRIPTION: 
See ABSTRACT, above. 
i FORMAL PARAMETERS: 
i HANDLER CODE - The command to be processed. 


! . 
: 
Ps 
! - 
DO_INDERING - If FALSE, the scan is done but no index entry is made. : 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None : 
0 i ROUTINE VALUE: : 
0 { COMPLETION CODES: None : 
9 SIDE EFFECTS: None 
0 ; : 
0 BEGIN : 
0 L ; 
0 SCA_PARA_ COPY, : 
02 SCA- INDENT COPY, 
02 HOLB_IND_FCAG 


HOLD" IND"EFLAG, 
SCA_COPY™: SCA_DEFINITION; 'Used to preserve SCA. 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

5 

r4 

5 

3 

3 0 
§ TSF-TEMP : VECTOR 
§ LO 


0 
02 
02 
02 CAL 
02 MRA_TEMP : VECTOR fs + CHSALLOCATION (1000)], Tongerery MRA area 
Bs TSF _SIZEJ; 'Temporary TSF 
02 CAL 
02 MRA_ADDRESS, ‘Preserve interrupted MRA 
Og TSF _ADDRESS; 'Preserve interrupted TSF 
02 LOCAL 
OS XTN; !Computed transaction number for index entry. 
029 XIF DSRPLUS XTHEN 
029 LOCAL 
9 9 AN_XYPLUS; 
030 AN_XYPLUS = 0; 
030 xFI 
4 XTN = 0; ‘Assume it's a .ENTRY command. 

0306 ‘No transaction number is needed for .ENTRY commands, since they 
8 07 'get no page number in the index. Also, if indexing commands 

B tare to be ignored, no transaction number is needed either. 

10 IF .DO_INDEXING 

1 AND (.HANDLER_CODE NEQ H_ENTRY) 

18 ZIF DSRPLUS %THEN 


NA’ 
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Module Level Declarations RUNOFF .SRC.JMAKNDX.BLI; (4 
AND (.HANDLER_CODE NEQ H_YPLUS) 


—_ 
5 
~ 


%FI 
90 THEN 
91 BEGIN 
4 ! Compute the transaction number associated with this entry. 
94 XTN = .GCA_NORMAL_XTN; 
32 GCA_NORMAL_XTN = .GCA_NORMAL_XTN + 1;  !Bump for next index entry 
97 'The page number associated with this index entry is the same 
ps: ‘as that of the word being worked on. 
4 IF .SCA_WRD_F_XTN EQL 0 
4 SCA_WRD_F _XTN = .XTN; 
Se IF .XTN NEQ 0 
06 SCA_WRD_L_XTN = .XTN; 
08 
RSKIPS (IRA); 'Skip spaces and tabs preceeding the index item(s) 
HOLD_IND_FLAG = .FLGT CIND_FLAG, FLAG CHARACTER); 'Preserve <INDEX flag> status. 
HOLD_IND-EFLAG = .FLGT CIND_ FLAG, FLAG_ENABLED); 
OFT TH_NO_FLAGS_INDE, IND_FCAG); Disable <INDEX flag> 


C. CSBX_FLAG, FLAG_ENABLED] AND .SCA_FLAGS 


‘Enable <SUBINDEX flag> recognition. The <SUBINDEX flag> temporarily 
reete by areas reserved for the <INDEX flag>. 
FLGT CIND_FLAG, FLAG_CHARACTER] = .FLGT CSBX_FLAG, FLAG_CKARACTER); 
FLGT CIND FLAG, FLAG ENABLED] = TRUE; 
ATABLE C.FLGT CSBx_FCAG, FLAG_CHARACTER]] = A_FLAG; 


<I1F | le 4 THEN 


] 
| 
| 
| 
i 
| 
| 
END; | 
| 
| 
| 
| 
sags OR LOE EQL H_XPLUS OR .HANDLER_CODE EQL H_YPLUS | 


LOCAL 
STATUS; 


STATUS = XPLUS (.HANDLER_CODE); 
IF_  .STATUS 
THEN 

BEGIN 


POPIPIPIPIPONININPIPININPINPINPINININIPININIPINININININIDININININININININID 2 2 2 OO Oo oe oe 
~ 


DPDREDPDPD sss £ Be BS BE EE BANANA ANIA WIIPPOPUPPINPYPPYPU PR SS 
FUN 9 OONAUE WN O OONOAU EWN 9 OD NAME WN OOONO UNE WN OUOONIOU 


| 
| 
| 
‘Note the fact that an .XP/.YP was given, so we can generate 
'a warnin messane if .OX/.PX is ever used after .XP/.YP. 
GCA_XP_EV R = TRUE; 

| 


iMark this entry as an .XP/.YP entry. This will allow DOFLG 


SOOOCOCSOOCOOCOCGSOOCOCOCOOCOCOOCO OC COSCOSOSGOOCOCOCOCOCCOCCOCOCOCOCOCOCOOCOOCOOOOOOOoOoO 
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v04-000 Module Level Declarations 12-Sep-19 4 99:39:62 RUNOFF .SRCJMAKNDX.BLI;1 ’ apa vO 

> 244 U 0371 'to determine if it should generate escape sequence for the 

: 245 U Me 'Nopermute flag (as it should if the command is .XP/.YP), or 

; 246 U 037 tA eat it (as it should for .X/.Y). 

; ; 

47 U 0374 AN_X plus TRUE 

> 248 U 0375 ! 

; 249 U 8 6 END | 

: Set y 0878 ELSE GIN 

: 26 U 0379 'The syntax of user-supplied attributes is illegal (mismatched 

; 2 U tt] '‘parens). In this case we cannot aise Inguten what is intended 

; See 0 + ee the index entry, so advance past the rest of the text and 

; ‘return, 

: 286 U $388 ENDCMT (); 

s gor U 0384 RETURN; 

$ 526 U Beg2 END; 

> 259 U 0386 

; 260 U 0387 END; 

UBM Bae 

3 268 $44 PUSH_SCA; !Save the SAVEd SCA bits. 

: $e O36 INCR I FROM 0 TO SCA_SIZE - 1 DO 

: $o8 8337 SCA_COPY C.1] = .SCA C.1); 'Save SCA 

3 $68 0395 : 'Initialize the SCA before doing SCANT 

; $88 0396 2 SCA_LM = 0; 

; 270 0397 2 SCA_RM = 150; 'Set wide right margin so won't start a new Line. 

; e271 0398 2 SCA_X_FLAG = FALSE; 'Turn off index flag now in case we are in the middle of an 

8 ee 0399 SCA_SPACING = 1; 'Single spacing avoids spurious intermediate code. 

3 (ale 0400 SETCAS (.GCA_XCASE); 'Use case translation rules defined by .XLOWER or .XUPPER co 

3 ers 0401 SCA_FC = TRUE; 'This is the first character for the MRA. 

: sf? Babs § SCA_FC_CASE = TRUE; ‘Use first character-of-word case rules. 

: 276 040 SCA-XROUTINE = TRUE; iTRUE ==> use SUBXR for index phrase processing routine. 

. eer 0404 2 SCA_PRESCAN = TRUE; ‘A ':' terminates the scan. 

; 278 0405 5 SCA_PARA_ COPY = .SCA_PARA PND; ‘Don't Let FCIMRA do any indentation, etc. 

; 279 0406 SCA_INDENT COPY = .STA_INDENT; 

; 280 0407 ; SCA~PARA PND = FALSE; 

; 281 0408 SCA_INDERNT = 0; 

; 382 0409 2 SCATFILL = FALSE; 

$ sei Reid 5 SCA_JUSTIFY = FALSE; 

> 285 Belg 'Preserve the addresses of the structures to which these items refer. 

5 86 041 MRA_ADDRESS = .MRA; 

: 7 414 TSF_ADDRESS = .TSF; : 

; 415 'Now switch working buffers, so that text currently being accumulated 

3; 289 21% ‘is not disturbed. 

: 290 041 MRA = MRA_TEMP; 

: 291 418 TSF = TSF-TEMP; | 

3 4 419 'Now penalty set up MRA, to look Like a FIXED STRING. 

: 29 420 FS_MAXSIZE (MRA) = 1000; Pee , 

3 oe be 1 FS_INIT (MRA); ‘And that finishes the initialization. | 

: 38 04 é 'Now initialize TSF for SCANT. 

; @ 4 INCR_I FROM _O TO TSF_SIZE - 1 DO | 

: 4 Be 5 TSF C.1]) = 0; 

: 300 U 04 $ XIF DSRPLUS XTHEN | 
| 


rocesses .INDEX, .ENT, and .SUBI directives. 1 
odule Level Declarations 1 
! 


~~ 
, at et ee 


r~ 
AAO = 
WN SO OCONAUES WN (OVD ONAULS WN ($C ODNAUS WN —OWO0 


WAIN AAI 
re eed eh ay eh Ne ae ee ee Eee $8 
SOONAVNES WN (OO ONOULS WIN (OO ONOULS WN O0OOND 


WANAANAAAAA ANA 


FUWWWww 


, at et et 
_ 


ws 


D 12 

6-Sep-1984 00:56:25 AX-11 Bliss-32 V4.0-74 
rae ae 19:39:62 RUNOFF .SRC MARNOX-BL {24 
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TSF _XYPLUS = .AN_XYPLUS; 


TSF_INDEX = TRUE; !This TSF record describes an index entry. 
TSFTFIRST_XTN = _XTN; . 
SCA_WRD_LINT_L = 0; 

SCA_WRDLEXT-L = 0; 

SCA_WRD_ISEGN = 0; 

SCA_WRD_DRAFT = 0; 

SCA_WRD_DRAFT_F = 0; 

SCA_WRD_BARS = 0; 

SCA_WRD-BAR_CHR = 0; 

SCA_WRD_SEQR F = 0; 

SCA_WRD_IPAGEN = 0; 

SCA_WRD_FOOTW = 0; 

SCA_WRD_F_XTN = 0; 

SCA_WRD_L-XTN = 0; 

SCA_WRD_LC_PNCT = 0; 

SCA_WRD_LST_SP = 0; 

SCA_WRD-LST_JuS = 0; 

SCA_WRD_LST_UND = 0; 

SCA_WRD_PNTR = .FS_NEXT (MRA); 

SCA_WRD_CPEND = RINTES; 'Tell ENDCHR no character is pending. 
FS_START (MRA) = .SCA_WRD_PNTR; 


'Now Let SCANT process the command. 
SCANT (); 


‘Restore <INDEX flop to former status. 

OFT (H_NO_FLAGS_INDE, IND_FLAG); 

FLGT IND-FLAG, FLAG_ CHARACTERS = .HOLD_IND_FLAG; 
FLGT CIND_FLAG, FLAG_ENABLED] = .HOLD_IND_EFLAG; 


IF .FLGT CIND FLAG, FLAG_ENABLED] 
AND .SCA_FCAGS 


ATABLE C.FLGT CIND_FLAG, FLAG CHARACTER]) = A_FLAG; 


‘Return here with a word. 


is 
IF .DO_INDEXING 
THEN 
BEGIN 
IF .SCA_WRD_CPEND NEQ RINTES 
ENDWRD (FALSE, FALSE, FALSE); ‘End word, but don't write a space too. 


ZIF DSRPLUS THEN 
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iFind out if there is a sort string, 
:and if so, check its validity. 


IF y HANDLER. CODE EQL H_XPLUS OR .HANDLER_CODE EQL H_YPLUS 


BEGIN 
CHSSTR 0); 


his information is used by UNPUS (called from OUTLIN), among other 
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i The sort ag Ba now been checked and adjusted if necessar 


Now we write t 
WRATTR (); 
END; 


te an er eces block only 


e 
I 
The indexed text * not null, 
This was an .XP/.Y 


ee ee ee ee 


Not generating a ‘BEL (FLIP) file. 
F peek BEE ‘Indexing to a file? 


if: 
ndexing i : . ng to the Y BRN file, and 


TSF EXT HL NEQ 0 !Non=null index entry? 


. TSF_XYPLUS 1 .XP/.YP? 
AND 


NOT (.gca_op_dev EQL op_dev_flip) 


THEN 


sort= and Append= strings to the attributes biock. 


‘Not generating a .BFL? 


PUTATT (); 'OK, write out the attributes. 


= (FALSE); 'Don't 


—, : FROM_0 TO SCA_SIZE = 1 DO 
A C.1] = .SCA_CToPY C. 1; 


POP_SCA; 'Restore the SAVEd SCA bits. 


sof -MRA erttiite 

TSF ai SeaA RESS; 

CAP PAD = Sth PARA_COPY; 
ATINDERT = SCA. INDENT_COPY; 


00000 PP_SCA: 


OFFC 00000 


- TITLE 
- IDENT 
»PSECT 
-BLKB 


EXTRN 
-PSECT 
ENTRY 


disturb justification algorithm 


‘Restore SCA 


'Restore previous status. 


‘End of MAKNDX 


MAKNDX Processes .INDEX, .ENT, and .SUBI direct 


ve 
\V04-000\ 
SOWNS ,NOEXE , 2 
48 
RINTES ATABLE, FLGT 
GCA, IRA SCA 
Nee HIS 
na 


RSKIPS. SCANT. OUSETCAS 
SUBXR 


SCODES .NOWRT 2 


MAKNDX, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 


| 
Dee 
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MAKNDX Processes .INDEX, .ENT, and .SUBI directives. 16-Sep-1984 56:25 AX-11 Bliss-32 V4.0-74 P 1 
v04-000 Module Level Declarations 12=808=1 382 99:39:62 RUNOFF .SRC JMAKNDX.BLI; ste ae 
R11 : 
B 00000000' EF 9E MOVAB PP SCA, R11 : 
sh 000090006 EF 9E 8 6 MOVAB Sexvied R10 : 
E FOE cE 9E 0001 MOVAB =1560(SP), SP : 
B 8 at £9 9001 Stee © DON INDEXING, 28 + 0383 
00000040 ge 88 aC p at cHPL HARDLER_CODE, #64 + 0311 
53 000000006 EF D $0 MOVL §§ GCA+168, XTN : 0321 
000000006 EF 06 00 INCL  GCA+1 : 0322 
009 i b 0 iste SCA+296 + 0327 
0098 CA ; D MOVL XTN, SCA+296 : 0329 
53 900 D 1$: TSTL  XTN : 0331 
A 03 13 0003F BEQL © 2$ : 
009c CA dO 00041 MOVL -XTN, SCA+300 : 0333 
000000006 FF 9F 00046 28: PUSHAB IR + 0337 
000000006 EF 1 FB 0046 CALLS #1 RSKIPS : 
7 000000006 EF DO 0005 MOVL FLGT+112, HOLD_IND_FLAG + 0339 
56 000000006 EF DO 0005A OVL FLGT+40, HOLD_IND_EFLAG : 0340 
A DD 00061 PUSHL - 0341 
7E 84 8F 9A 00063 MOVZBL #132, -(SP) : 
000000006 EF 02 FB 0067 CALLS @ : 
e5 000000006 EF E 0066 BLBC FLGT+52, 3$ : 0343 
1 00 BA €9 0007 BLBC ascarid, 3$ ; 
000000006 EF 000000006 FF DO 00079 MOVL FLGT#+124. FLGT+112 + 0348 
000000006 _ EF 1 00 00084 MOVL #1, FLGT+40 > 0349 
50 000000006 EF 3 0088 MOVAB ATABLE, RO : 0350 
00000000GFF40 3 90 0009 MOVB #3, @FLGT+124(R0) ; 
6B D4 BA DO OO009A 38: MOVL  a@SCA+100, PP_SCA : 0387 
04 AB D8 BA DO 0009 MOVL a@SCA+104. PPTSCA+4 ; 
08 AB DC BA DO OO0A MOVL a@SCA+108, PP7SCA+8 ; 
OC AB EO «BA D0 00A8 MOVL  @SCA+112. PPTSCA+12 F 
10 AB E4 BA DO OOOAD MOVL ascAsti6, PP~SCA+16 : 
14 AB £8 BA D0 0082 MOVL  aSCA+120. PP~SCA+20 ; 
18 AB EC BA DO 000B MOVL  a@SCA+124. PPTSCA+24 : 
1c «AB FO BA DO 000BC MOVL  @SCA+128, PPTSCA+ 8 ; 
20 AB F4 BA DO 000C1 MOVL  aSCA+132, PPTSCA+ : 
34 AB F8 BA DO 000C6 MOVL @SCA+136. PPTSCA+36 : 
8 AB FC BA DO 000CB MOVL  a@SCA+140. PP7SCA+40 ; 
2c AB 00 BA DO 0000 MOVL  a@SCA+144. PPTSCA+44 : 
0 D4 0000 CLRL oI : 0392 
FE8O CD40 FF70 CA40 09 0007 4$: MOVL ScAClI, SCA_COPYCI) : 039 
50 O00O000SF BF F OOE0 AOBLEQ #95 4 ; 
4 BA D4 OO0E CLRL asthe 16 > 0396 
E8 BA 6 BF 9A OE MOVZBL #150, a@SCA+120 : 0397 
OC AA D4 OOF CLRL = SCA#156 : 0398 
EC BA 01 00 O0OF ‘a 2 asca+i24 : 0399 
000000006 FF DD O00F PUSHL  aGCA+B4 : 0400 
000000006 EF 1 FB OO0FD CALLS #1, SETC ; 
04 AA 1 00 001 MOVL #1. SCA+14 > 0401 
40 AA 1 OD 108 MOVL #1, acAce $ 208 
28 AA 1 00 001 ¢ MOVL #1. SCA+184 : 040 
1¢ AA 1 11 MOVL #1 A+172 : 0404 
58 4C AA 7D 00114 MOVO  S$CA+200, SCA_INDENT_COPY > 0406 
4C AA 7C 00118 CLRQ = SCA+ : 0408 
D8 BA D4 0011B CLRL  aSCA+104 > 0409 


SS — 


12 | 
MAKNDX Processes .INDEX, .ENT, and .SUBI directives. 18- S$ep-1984 56:25 AX-11 Bliss-32 V4.0-74 p 1) 
yan o00 Module Level Declarations 1 ~8ep-1986 90:38:82 RUNOFF ..SRCJMAKNDX.BLI; —_ ma 
4 BA D4 0011 CLRL  aSCA+100 : 041 : 
Fi 9000 G EF 0 1 f MOVL MRA, MRA_ADDRESS : 418 | 5 
0 G EF p 108 MOVL TSF, TSF-ADDRESS + 0414 : 
990000006 CE 9E O010F MOVAB MRA_TEMP; MRA + 0417 ; 
000000006 Er 6E 3 138 MOVAB TSF-TEMP, TSF + 0418 ; 
0 000090006 it p 13F OVL MRA; RO + 0420 ; 
08 Ad F F 3C 00146 MOVZWL #1060, 8(RO) : ; 
O¢ Ap p4 O14c CLRL 120k § + 0421 ; 
60 A 14F MOVAB 16(RO), (RO) : : 
04 AQ 60 D 4) ; MOVL (RO), &¢ : ; 
52 000000006 FF D0 MOVL SF. R2 + 0425 : 
6241 04 Se 5$ CLRL —s-_ (RD C1 : ; 
F9 51 7 F3 0016 AOBLEQ #39, I, 5$ : : 
14 AS 1 4 016 MOVL #1, 20(R2) 3: 0431 3 
38 A 3 3 0168 MOVL XTN, 56(R2) 3; 0432 3 
6C AA 7C 01 6F CLRO  $Ca+252 + 0434 ; 
74 AA 7C 001 : CLRQ §$CA+260 > 0436 ; 
70 «AA OG 0017 CLRL. SCA+268 > 0438 : 
0080 CA 01 BA 00178 BICB2 «vi, scAe272 : 0439 ; 
0084 CA D4 00170 CLRL SCA+276 + 0440 i 
008 CA 7C 00181 CLRO = SCA+284 + 0441 : 
0094 CA 7C 00185 CLRQ SCA+29 + 0443 
009c =CCA D4 00189 CLRL S$CA+30 + 0445 
00B8 CA 7C 0018D CLRO = SCA#328 + 0446 
00cO }«=6CAs7E.:«£00191 CLRQ = SCA+ + 0448 
68 AA 04 AO 00 00195 OVL 4(RO), SCA+24 + 0450 
0088 CA 006 8F 9A 0019A MOV ZBL #RINTES, SCA+280 > 0451 
£4 68 AA DO 001A0 OVL S$CA+248, (RO) + 0452 
000000006 _ EF 00 FB OO1A4 CALLS #0 N : 0455 
OA DD 001AB USHL aig + 0458 
7E 84 8F 9A OO1AD MOVZBL #132, -(SP) F 
000000006 EF 22 FB 001B1 CALLS #2, ; 
000000006 EF 57 D0 00188 MOVL | HOLD_IND_FLAG, FLGT+112 : 0459 
000000006 EF 56 DO 001BF MOVL HOLD? {ND “EFLAG, FLGT+40 + 0460 
13 000000006 EF €E9 001C6 BLBC  FLGT?40,~6$ > 046 
OF 00 BA E9 001CD BLBC aSCA+144, 6$ > 046 
50 000000006 FF f 00101 MOVAB TABLE, RO + 0465 
00000000GF F40 3 90 00108 MOVE 3s #3, SFCGT#112 ROJ ; 
1F 08 AC €E9 OO1E0 68 BLBC  DO_INDEXIN + 0468 
000000006 8F 0088 CA D1 001E4 CMPL SCK+80. #RINTES : 0472 
0B 13 OO1ED BEQL $$ ; 
7E 7C OO1EF CLRO —_ = (SP) + 0474 
43 D4 IF CLRL 45?) F 
000000006 EF Q FB OOTF CALLS #3, ENDWRD : 
E D4 OO1FA 7$: CLRL 0s. = ¢ §P) : 0509 
000000006: EF gi FB OOTF CALLS #1, OUTLIN : 
6 D4 0 8$: CLRL I : 051 
FF70 CA40 FE8O0 CD40 D 9$: MOVL sca sO SCALIJ > 051 
50 OO0000SF  8F F300 E AOBLEQ ; 
BA 6B D 6 1 MOVL Pech’ a A+100 : 
D8 BA 4 AB D 1A MOVL BP “SEAtGe see cAtt 4 ; 
DC BA 8 AB D 1F MOVL PP-SCArs aSCA+108 ; 
EO BA ¢ AB OD 4 MOVL PPTSCA+10, aSCA+l1 : 
£4 BA AB OD 9 MOVL PPTSCA+16, aSCA+11 ; 
EB BA 16 AB OD f ROVE BPTSCASZO. aSCAr | 
EC BA 18 AB OD MOVL PPTSCA+24. aSCA+104 : | 
| 
| 
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MAKNDX Processes .INDEX, .ENT, and .SUBI directives. 16-Sep-19 5 AX-11 Bliss-32 V4.0-74 
v04-000 Module Level Declarations 14-Sep O19 7 9: 25; 82 RUNOFF .SRCJMAKNDX.BLI; 
FO BA if AB D 3 MOVL PP_SCA+28, @SCA+1 8 
F4 BA AB D MOVL PP~ SCA+ > aSCA+l 
F8 BA 4 AB D 4 MOVL PP" SCA+ * aSCAel g 
F BA 8 AB D 4 MOVL a SCA+40, aSCA+14 
BA C AB OD 4 MOVL at aed a@SCA+144 
900000 G EF D MOVL mR RAD RES. RA 
000000006 EF 4 p MOVL SF=A DDRESS 
4C AA 8 7D F MOVG = SCATINDENT_ tory. SCA+220 
04 00263 RET 


Bete ee Ge Fe Se ee 


Routine Size: 612 bytes, Routine Base: S$CODE$ + 0000 


95 05 ¢ 1 
96 05 1 END 'End of module 
97 0524 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 48 NOVEC, WRT, ROD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 612 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


een Syabols eoo----- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28 : CSYSLIBIXPORT.L32;1 370 0 0 252 00:00.1 
“$255$DUA28 : CRUNOFF .SRCJDSRLIB.L32;1 124 87 é 86 00:00.3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:MAKNDX/OBJ=OBJ$:MAKNDX MSRC$:MAKNDX/UPDATE=(ENHS :MAKNDX) 


Size: 612 code + 48 data bytes 
Run "Tine 716.4 

Elapsed. Tine: 0:36.0 

Lines/CPU Min 19 9 
Lexemes/CPU-Ain: 185 


pee Used: 144 pages 
Compilation Complete 


sz 


ON 
Y 


L EQUIPMENT CORPORA 
ENTIAL AND PROPRIET 


AH-BT13A-SE 
VAX/VMS_V4.0 


TA 
ID 


DIGI aR 
CONF = 


0343 


